home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / sources.lha / sources / sys / location.t < prev    next >
Text File  |  1988-02-05  |  3KB  |  66 lines
  1. (herald locative (env tsys))
  2.  
  3. ;;; Copyright (c) 1985 Yale University
  4. ;;;     Authors: N Adams, R Kelsey, D Kranz, J Philbin, J Rees.
  5. ;;; This material was developed by the T Project at the Yale University Computer 
  6. ;;; Science Department.  Permission to copy this software, to redistribute it, 
  7. ;;; and to use it for any purpose is granted, subject to the following restric-
  8. ;;; tions and understandings.
  9. ;;; 1. Any copy made of this software must include this copyright notice in full.
  10. ;;; 2. Users of this software agree to make their best efforts (a) to return
  11. ;;;    to the T Project at Yale any improvements or extensions that they make,
  12. ;;;    so that these may be included in future releases; and (b) to inform
  13. ;;;    the T Project of noteworthy uses of this software.
  14. ;;; 3. All materials developed as a consequence of the use of this software
  15. ;;;    shall duly acknowledge such use, in accordance with the usual standards
  16. ;;;    of acknowledging credit in academic research.
  17. ;;; 4. Yale has made no warrantee or representation that the operation of
  18. ;;;    this software will be error-free, and Yale is under no obligation to
  19. ;;;    provide any services, by way of maintenance, update, or otherwise.
  20. ;;; 5. In conjunction with products arising from the use of this material,
  21. ;;;    there shall be no use of the name of the Yale University nor of any
  22. ;;;    adaptation thereof in any advertising, promotional, or sales literature
  23. ;;;    without prior written consent from Yale in each case.
  24. ;;;
  25.  
  26. (define-settable-operation (contents loc))
  27.  
  28. (define set-contents (setter contents))
  29.  
  30. (define-operation (define-contents loc value))
  31.  
  32. (define-predicate locative?)
  33.  
  34. ;;; Other locatives are made using the MAKE-LOCATIVE operation.
  35.  
  36. (define-operation (make-locative proc . args)
  37.   (object nil
  38.           ((contents self) (apply proc args))
  39.           ((set-contents self val)
  40.            (apply (setter proc) (append args (list val)))) ; choke!
  41.           ((locative? self) t)
  42.           ((print-type-string self) "Locative")))
  43.  
  44.  
  45.  
  46. ;;; Delays
  47.  
  48. (define-predicate delay?)
  49.  
  50. (define-operation (force obj) obj)
  51.  
  52. ;;; This value is local to the module
  53.  
  54. (define %unforced (undefined-value 'unforced-delay))
  55.  
  56. (define (make-delay proc)
  57.   (let* ((value %unforced)
  58.          (get-value  (lambda ()
  59.                        (if (eq? value %unforced) (set value (proc)))
  60.                        value)))
  61.     (object (lambda () (get-value))
  62.       ((force self) (get-value))
  63.       ((delay? self) t)
  64.       ((print-type-string self)
  65.        (if (eq? value %unforced) "Delayed" "Forced")))))
  66.